COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	ENTRY REDSNAP, GRNSNAP, BLUSNAP, HORTINI
C00003 ENDMK
C⊗;
ENTRY REDSNAP, GRNSNAP, BLUSNAP, HORTINI;
BEGIN "HORTON"

REQUIRE "{}<>" DELIMITERS;

DEFINE SNAP(COLOR,BIT)= {
INTERNAL PROCEDURE COLOR;
BEGIN "COLOR"

 CMDS[0] ← (60 LSH 18) LOR BIT;
 ARRYOUT(HCHAN,CMDS[0],1);
 CLOSE(HCHAN);
END "COLOR"; };

INTEGER HCHAN;
INTEGER ARRAY CMDS[0:1];

INTERNAL PROCEDURE HORTINI;
BEGIN "HORTINI"
 HCHAN←GETCHAN;
 OPEN(HCHAN,"CAR",'10,0,1,0,0,0);
END "HORTINI";

SNAP(REDSNAP,'100000);

SNAP(GRNSNAP,'040000);

SNAP(BLUSNAP,'020000);

END "HORTON"